home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / maestro / source / timeline / timeline.g < prev    next >
Encoding:
Text File  |  1993-06-15  |  30.5 KB  |  965 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :menu
  5.     :name                   EditMenu
  6.     :help                   ""
  7.     :columns                1
  8.     :menu-type              :command
  9.     :menu-handler           nil
  10.     :menu-title             "Edit"
  11.     :menu-item-labels       ("Cut" "Copy" "Paste" "Delete" "Clear All" "Show Clipboard ..." )
  12.     :menu-item-label-types  (:string :string :string :string :string :string )
  13.     :menu-item-states       (:active :active :active :active :active :active )
  14.     :menu-item-defaults     (t nil nil nil nil nil )
  15.     :initial-selections     (nil nil nil nil nil nil )
  16.     :menu-item-handlers     (CutHandler CopyHandler PasteHandler DeleteHandler ClearAllHandler ShowClipboardHandler )
  17.     :menu-item-menus        (nil nil nil nil nil nil )
  18.     :menu-item-colors       ("Black" "Black" "Black" "Black" "Black" "Black" )
  19.     :pinnable               t
  20.     :user-data              ()
  21.     :actions                (
  22.         (
  23.         :from                   (EditMenu "Cut")
  24.         :when                   (Notify )
  25.         :to                     (EditMenu "Cut")
  26.         :function_type          CallFunction
  27.         :arg_type               ()
  28.         :action                 (CutHandler)
  29.         )
  30.         (
  31.         :from                   (EditMenu "Copy")
  32.         :when                   (Notify )
  33.         :to                     (EditMenu "Copy")
  34.         :function_type          CallFunction
  35.         :arg_type               ()
  36.         :action                 (CopyHandler)
  37.         )
  38.         (
  39.         :from                   (EditMenu "Paste")
  40.         :when                   (Notify )
  41.         :to                     (EditMenu "Paste")
  42.         :function_type          CallFunction
  43.         :arg_type               ()
  44.         :action                 (PasteHandler)
  45.         )
  46.         (
  47.         :from                   (EditMenu "Delete")
  48.         :when                   (Notify )
  49.         :to                     (EditMenu "Delete")
  50.         :function_type          CallFunction
  51.         :arg_type               ()
  52.         :action                 (DeleteHandler)
  53.         )
  54.         (
  55.         :from                   (EditMenu "Clear All")
  56.         :when                   (Notify )
  57.         :to                     (EditMenu "Clear All")
  58.         :function_type          CallFunction
  59.         :arg_type               ()
  60.         :action                 (ClearAllHandler)
  61.         )
  62.         (
  63.         :from                   (EditMenu "Show Clipboard ...")
  64.         :when                   (Notify )
  65.         :to                     (EditMenu "Show Clipboard ...")
  66.         :function_type          CallFunction
  67.         :arg_type               ()
  68.         :action                 (ShowClipboardHandler)
  69.         )
  70.     )
  71. )
  72. (
  73.     :type                   :menu
  74.     :name                   PlayMenu
  75.     :help                   ""
  76.     :columns                1
  77.     :menu-type              :command
  78.     :menu-handler           nil
  79.     :menu-title             "Play"
  80.     :menu-item-labels       ("Play from insertion point" "Play whole document" "Play selected region" "Synchronize This Document" )
  81.     :menu-item-label-types  (:string :string :string :string )
  82.     :menu-item-states       (:active :active :active :active )
  83.     :menu-item-defaults     (t nil nil nil )
  84.     :initial-selections     (nil nil nil nil )
  85.     :menu-item-handlers     (PlayFromHandler PlayHandler PlaySelectedHandler SynchronizeDocument )
  86.     :menu-item-menus        (nil nil nil nil )
  87.     :menu-item-colors       ("Black" "Black" "Black" "" )
  88.     :pinnable               t
  89.     :user-data              ()
  90.     :actions                (
  91.         (
  92.         :from                   (PlayMenu "Play from insertion point")
  93.         :when                   (Notify )
  94.         :to                     (PlayMenu "Play from insertion point")
  95.         :function_type          CallFunction
  96.         :arg_type               ()
  97.         :action                 (PlayFromHandler)
  98.         )
  99.         (
  100.         :from                   (PlayMenu "Play whole document")
  101.         :when                   (Notify )
  102.         :to                     (PlayMenu "Play whole document")
  103.         :function_type          CallFunction
  104.         :arg_type               ()
  105.         :action                 (PlayHandler)
  106.         )
  107.         (
  108.         :from                   (PlayMenu "Play selected region")
  109.         :when                   (Notify )
  110.         :to                     (PlayMenu "Play selected region")
  111.         :function_type          CallFunction
  112.         :arg_type               ()
  113.         :action                 (PlaySelectedHandler)
  114.         )
  115.         (
  116.         :from                   (PlayMenu "Synchronize This Document")
  117.         :when                   (Notify )
  118.         :to                     (PlayMenu "Synchronize This Document")
  119.         :function_type          CallFunction
  120.         :arg_type               ()
  121.         :action                 (SynchronizeDocument)
  122.         )
  123.     )
  124. )
  125. (
  126.     :type                   :menu
  127.     :name                   AppMenu
  128.     :help                   ""
  129.     :columns                1
  130.     :menu-type              :command
  131.     :menu-handler           nil
  132.     :menu-title             "Applications"
  133.     :menu-item-labels       ("Update Applications List" "Show edit info for an application ..." "Delete selected application" "Show application" "Hide application" "Mute application" "Remove mute from application" )
  134.     :menu-item-label-types  (:string :string :string :string :string :string :string )
  135.     :menu-item-states       (:active :active :active :active :active :active :active )
  136.     :menu-item-defaults     (t nil nil nil nil nil nil )
  137.     :initial-selections     (nil nil nil nil nil nil nil )
  138.     :menu-item-handlers     (UpdateAppsHandler ShowEditInfoHandler DeleteAppHandler ShowApplicationHandler HideApplicationHandler MuteAppHandler RemoveMuteAppHandler )
  139.     :menu-item-menus        (nil nil nil nil nil nil nil )
  140.     :menu-item-colors       ("Black" "Black" "Black" "Black" "Black" "Black" "Black" )
  141.     :pinnable               t
  142.     :user-data              ()
  143.     :actions                (
  144.         (
  145.         :from                   (AppMenu "Update Applications List")
  146.         :when                   (Notify )
  147.         :to                     (AppMenu "Update Applications List")
  148.         :function_type          CallFunction
  149.         :arg_type               ()
  150.         :action                 (UpdateAppsHandler)
  151.         )
  152.         (
  153.         :from                   (AppMenu "Show edit info for an application ...")
  154.         :when                   (Notify )
  155.         :to                     (AppMenu "Show edit info for an application ...")
  156.         :function_type          CallFunction
  157.         :arg_type               ()
  158.         :action                 (ShowEditInfoHandler)
  159.         )
  160.         (
  161.         :from                   (AppMenu "Delete selected application")
  162.         :when                   (Notify )
  163.         :to                     (AppMenu "Delete selected application")
  164.         :function_type          CallFunction
  165.         :arg_type               ()
  166.         :action                 (DeleteAppHandler)
  167.         )
  168.         (
  169.         :from                   (AppMenu "Show application")
  170.         :when                   (Notify )
  171.         :to                     (AppMenu "Show application")
  172.         :function_type          CallFunction
  173.         :arg_type               ()
  174.         :action                 (ShowApplicationHandler)
  175.         )
  176.         (
  177.         :from                   (AppMenu "Hide application")
  178.         :when                   (Notify )
  179.         :to                     (AppMenu "Hide application")
  180.         :function_type          CallFunction
  181.         :arg_type               ()
  182.         :action                 (HideApplicationHandler)
  183.         )
  184.         (
  185.         :from                   (AppMenu "Mute application")
  186.         :when                   (Notify )
  187.         :to                     (AppMenu "Mute application")
  188.         :function_type          CallFunction
  189.         :arg_type               ()
  190.         :action                 (MuteAppHandler)
  191.         )
  192.         (
  193.         :from                   (AppMenu "Remove mute from application")
  194.         :when                   (Notify )
  195.         :to                     (AppMenu "Remove mute from application")
  196.         :function_type          CallFunction
  197.         :arg_type               ()
  198.         :action                 (RemoveMuteAppHandler)
  199.         )
  200.     )
  201. )
  202. (
  203.     :type                   :menu
  204.     :name                   DocumentMenu
  205.     :help                   ""
  206.     :columns                1
  207.     :menu-type              :command
  208.     :menu-handler           nil
  209.     :menu-title             "Document"
  210.     :menu-item-labels       ("About TimeLine Editor ..." "New ..." "Open ..." "Save" "Save as ..." "Close" "Quit" )
  211.     :menu-item-label-types  (:string :string :string :string :string :string :string )
  212.     :menu-item-states       (:active :active :active :active :active :active :active )
  213.     :menu-item-defaults     (nil nil t nil nil nil nil )
  214.     :initial-selections     (nil nil nil nil nil nil nil )
  215.     :menu-item-handlers     (AboutHandler NewHandler OpenFileHandler SaveFileHandler SaveAsFileHandler CloseHandler QuitHandler )
  216.     :menu-item-menus        (nil nil nil nil nil nil nil )
  217.     :menu-item-colors       ("Black" "Black" "Black" "Black" "Black" "Black" "Black" )
  218.     :pinnable               t
  219.     :user-data              ()
  220.     :actions                (
  221.         (
  222.         :from                   (DocumentMenu "About TimeLine Editor ...")
  223.         :when                   (Notify )
  224.         :to                     (DocumentMenu "About TimeLine Editor ...")
  225.         :function_type          CallFunction
  226.         :arg_type               ()
  227.         :action                 (AboutHandler)
  228.         )
  229.         (
  230.         :from                   (DocumentMenu "New ...")
  231.         :when                   (Notify )
  232.         :to                     (DocumentMenu "New ...")
  233.         :function_type          CallFunction
  234.         :arg_type               ()
  235.         :action                 (NewHandler)
  236.         )
  237.         (
  238.         :from                   (DocumentMenu "Open ...")
  239.         :when                   (Notify )
  240.         :to                     (DocumentMenu "Open ...")
  241.         :function_type          CallFunction
  242.         :arg_type               ()
  243.         :action                 (OpenFileHandler)
  244.         )
  245.         (
  246.         :from                   (DocumentMenu "Save")
  247.         :when                   (Notify )
  248.         :to                     (DocumentMenu "Save")
  249.         :function_type          CallFunction
  250.         :arg_type               ()
  251.         :action                 (SaveFileHandler)
  252.         )
  253.         (
  254.         :from                   (DocumentMenu "Save as ...")
  255.         :when                   (Notify )
  256.         :to                     (DocumentMenu "Save as ...")
  257.         :function_type          CallFunction
  258.         :arg_type               ()
  259.         :action                 (SaveAsFileHandler)
  260.         )
  261.         (
  262.         :from                   (DocumentMenu "Close")
  263.         :when                   (Notify )
  264.         :to                     (DocumentMenu "Close")
  265.         :function_type          CallFunction
  266.         :arg_type               ()
  267.         :action                 (CloseHandler)
  268.         )
  269.         (
  270.         :from                   (DocumentMenu "Quit")
  271.         :when                   (Notify )
  272.         :to                     (DocumentMenu "Quit")
  273.         :function_type          CallFunction
  274.         :arg_type               ()
  275.         :action                 (QuitHandler)
  276.         )
  277.     )
  278. )
  279. (
  280.     :type                   :menu
  281.     :name                   GridMenu
  282.     :help                   ""
  283.     :columns                1
  284.     :menu-type              :exclusive
  285.     :menu-handler           nil
  286.     :menu-title             "Grid"
  287.     :menu-item-labels       ("Grid Off" "1/2 second" "1 second" "2 seconds" "3 seconds" "4 seconds" "5 seconds" )
  288.     :menu-item-label-types  (:string :string :string :string :string :string :string )
  289.     :menu-item-states       (:active :active :active :active :active :active :active )
  290.     :menu-item-defaults     (nil nil nil nil nil nil nil )
  291.     :initial-selections     (nil nil nil nil nil nil nil )
  292.     :menu-item-handlers     (GridOffHandler FivePixelHandler TenPixelHandler TwentyPixelHandler ThirtyPixelHandler FortyPixelHandler FiftyPixelHandler )
  293.     :menu-item-menus        (nil nil nil nil nil nil nil )
  294.     :menu-item-colors       ("Black" "Black" "Black" "Black" "Black" "Black" "Black" )
  295.     :pinnable               nil
  296.     :user-data              ()
  297.     :actions                (
  298.         (
  299.         :from                   (GridMenu "Grid Off")
  300.         :when                   (Notify )
  301.         :to                     (GridMenu "Grid Off")
  302.         :function_type          CallFunction
  303.         :arg_type               ()
  304.         :action                 (GridOffHandler)
  305.         )
  306.         (
  307.         :from                   (GridMenu "1/2 second")
  308.         :when                   (Notify )
  309.         :to                     (GridMenu "1/2 second")
  310.         :function_type          CallFunction
  311.         :arg_type               ()
  312.         :action                 (FivePixelHandler)
  313.         )
  314.         (
  315.         :from                   (GridMenu "1 second")
  316.         :when                   (Notify )
  317.         :to                     (GridMenu "1 second")
  318.         :function_type          CallFunction
  319.         :arg_type               ()
  320.         :action                 (TenPixelHandler)
  321.         )
  322.         (
  323.         :from                   (GridMenu "2 seconds")
  324.         :when                   (Notify )
  325.         :to                     (GridMenu "2 seconds")
  326.         :function_type          CallFunction
  327.         :arg_type               ()
  328.         :action                 (TwentyPixelHandler)
  329.         )
  330.         (
  331.         :from                   (GridMenu "3 seconds")
  332.         :when                   (Notify )
  333.         :to                     (GridMenu "3 seconds")
  334.         :function_type          CallFunction
  335.         :arg_type               ()
  336.         :action                 (ThirtyPixelHandler)
  337.         )
  338.         (
  339.         :from                   (GridMenu "4 seconds")
  340.         :when                   (Notify )
  341.         :to                     (GridMenu "4 seconds")
  342.         :function_type          CallFunction
  343.         :arg_type               ()
  344.         :action                 (FortyPixelHandler)
  345.         )
  346.         (
  347.         :from                   (GridMenu "5 seconds")
  348.         :when                   (Notify )
  349.         :to                     (GridMenu "5 seconds")
  350.         :function_type          CallFunction
  351.         :arg_type               ()
  352.         :action                 (FiftyPixelHandler)
  353.         )
  354.     )
  355. )
  356. (
  357.     :type                   :menu
  358.     :name                   OptionsMenu
  359.     :help                   ""
  360.     :columns                1
  361.     :menu-type              :command
  362.     :menu-handler           nil
  363.     :menu-title             "Options"
  364.     :menu-item-labels       ("Show Region Info ..." "Insert Blank Time ..." "Insert/Delete Pause Marker ..." "Grid" "Connect with new Port Manager ..." )
  365.     :menu-item-label-types  (:string :string :string :string :string )
  366.     :menu-item-states       (:active :active :active :active :active )
  367.     :menu-item-defaults     (nil nil nil nil nil )
  368.     :initial-selections     (nil nil nil nil nil )
  369.     :menu-item-handlers     (ShowRegionInfoHandler InsertBlankTimeHandler InsertPauseMarkerHandler nil ConnectPortManagerHandler )
  370.     :menu-item-menus        (nil nil nil GridMenu nil )
  371.     :menu-item-colors       ("Black" "Black" "Black" "Black" "Black" )
  372.     :pinnable               t
  373.     :user-data              ()
  374.     :actions                (
  375.         (
  376.         :from                   (OptionsMenu "Show Region Info ...")
  377.         :when                   (Notify )
  378.         :to                     (OptionsMenu "Show Region Info ...")
  379.         :function_type          CallFunction
  380.         :arg_type               ()
  381.         :action                 (ShowRegionInfoHandler)
  382.         )
  383.         (
  384.         :from                   (OptionsMenu "Insert Blank Time ...")
  385.         :when                   (Notify )
  386.         :to                     (OptionsMenu "Insert Blank Time ...")
  387.         :function_type          CallFunction
  388.         :arg_type               ()
  389.         :action                 (InsertBlankTimeHandler)
  390.         )
  391.         (
  392.         :from                   (OptionsMenu "Insert/Delete Pause Marker ...")
  393.         :when                   (Notify )
  394.         :to                     (OptionsMenu "Insert/Delete Pause Marker ...")
  395.         :function_type          CallFunction
  396.         :arg_type               ()
  397.         :action                 (InsertPauseMarkerHandler)
  398.         )
  399.         (
  400.         :from                   (OptionsMenu "Connect with new Port Manager ...")
  401.         :when                   (Notify )
  402.         :to                     (OptionsMenu "Connect with new Port Manager ...")
  403.         :function_type          CallFunction
  404.         :arg_type               ()
  405.         :action                 (ConnectPortManagerHandler)
  406.         )
  407.     )
  408. )
  409. (
  410.     :type                   :base-window
  411.     :name                   window
  412.     :owner                  nil
  413.     :width                  804
  414.     :height                 234
  415.     :background-color       ""
  416.     :foreground-color       ""
  417.     :label                  "TimeLine Editor"
  418.     :label-type             :string
  419.     :initial-state          :open
  420.     :show-footer            t
  421.     :resizable              t
  422.     :icon-file              "icons/TimeLine.icon"
  423.     :icon-label             ""
  424.     :icon-mask-file         ""
  425.     :event-handler          nil
  426.     :user-data              ()
  427.     :actions                ()
  428. )
  429. (
  430.     :type                   :control-area
  431.     :name                   controls
  432.     :owner                  window
  433.     :help                   ""
  434.     :x                      0
  435.     :y                      0
  436.     :width                  804
  437.     :height                 92
  438.     :background-color       "Light Gray"
  439.     :foreground-color       ""
  440.     :initial-state          :visible
  441.     :show-border            nil
  442.     :menu                   nil
  443.     :event-handler          nil
  444.     :user-data              ()
  445.     :actions                ()
  446. )
  447. (
  448.     :type                   :button
  449.     :name                   documentButton
  450.     :owner                  controls
  451.     :help                   ""
  452.     :x                      16
  453.     :y                      16
  454.     :width                  94
  455.     :height                 19
  456.     :constant-width         nil
  457.     :button-type            :normal
  458.     :foreground-color       "Black"
  459.     :label                  "Document"
  460.     :label-type             :string
  461.     :initial-state          :active
  462.     :menu                   DocumentMenu
  463.     :notify-handler         nil
  464.     :event-handler          nil
  465.     :user-data              ()
  466.     :actions                ()
  467. )
  468. (
  469.     :type                   :button
  470.     :name                   appButton
  471.     :owner                  controls
  472.     :help                   ""
  473.     :x                      132
  474.     :y                      16
  475.     :width                  107
  476.     :height                 19
  477.     :constant-width         nil
  478.     :button-type            :normal
  479.     :foreground-color       "Black"
  480.     :label                  "Applications"
  481.     :label-type             :string
  482.     :initial-state          :active
  483.     :menu                   AppMenu
  484.     :notify-handler         nil
  485.     :event-handler          nil
  486.     :user-data              ()
  487.     :actions                ()
  488. )
  489. (
  490.     :type                   :button
  491.     :name                   editButton
  492.     :owner                  controls
  493.     :help                   ""
  494.     :x                      260
  495.     :y                      16
  496.     :width                  56
  497.     :height                 19
  498.     :constant-width         nil
  499.     :button-type            :normal
  500.     :foreground-color       "Black"
  501.     :label                  "Edit"
  502.     :label-type             :string
  503.     :initial-state          :active
  504.     :menu                   EditMenu
  505.     :notify-handler         nil
  506.     :event-handler          nil
  507.     :user-data              ()
  508.     :actions                ()
  509. )
  510. (
  511.     :type                   :button
  512.     :name                   playButton
  513.     :owner                  controls
  514.     :help                   ""
  515.     :x                      336
  516.     :y                      16
  517.     :width                  58
  518.     :height                 19
  519.     :constant-width         nil
  520.     :button-type            :normal
  521.     :foreground-color       "Black"
  522.     :label                  "Play"
  523.     :label-type             :string
  524.     :initial-state          :active
  525.     :menu                   PlayMenu
  526.     :notify-handler         nil
  527.     :event-handler          nil
  528.     :user-data              ()
  529.     :actions                ()
  530. )
  531. (
  532.     :type                   :button
  533.     :name                   optionsButton
  534.     :owner                  controls
  535.     :help                   ""
  536.     :x                      416
  537.     :y                      16
  538.     :width                  80
  539.     :height                 19
  540.     :constant-width         nil
  541.     :button-type            :normal
  542.     :foreground-color       "Black"
  543.     :label                  "Options"
  544.     :label-type             :string
  545.     :initial-state          :active
  546.     :menu                   OptionsMenu
  547.     :notify-handler         nil
  548.     :event-handler          nil
  549.     :user-data              ()
  550.     :actions                ()
  551. )
  552. (
  553.     :type                   :slider
  554.     :name                   ZoomSlider
  555.     :owner                  controls
  556.     :help                   ""
  557.     :x                      520
  558.     :y                      20
  559.     :width                  264
  560.     :height                 20
  561.     :value-x                571
  562.     :value-y                20
  563.     :slider-width           150
  564.     :ticks                  0
  565.     :foreground-color       "Black"
  566.     :label                  "Zoom : "
  567.     :label-type             :string
  568.     :layout-type            :horizontal
  569.     :orientation            :horizontal
  570.     :show-endboxes          nil
  571.     :show-range             nil
  572.     :show-value             t
  573.     :min-value              1
  574.     :max-value              40
  575.     :min-value-string       ""
  576.     :max-value-string       ""
  577.     :min-tick-string        ""
  578.     :max-tick-string        ""
  579.     :initial-value          0
  580.     :initial-state          :active
  581.     :notify-handler         ZoomSliderNotify
  582.     :event-handler          nil
  583.     :user-data              ()
  584.     :actions                (
  585.         (
  586.         :from                   (window ZoomSlider)
  587.         :when                   (Notify )
  588.         :to                     (window ZoomSlider)
  589.         :function_type          CallFunction
  590.         :arg_type               ()
  591.         :action                 (ZoomSliderNotify)
  592.         )
  593.     )
  594. )
  595. (
  596.     :type                   :button
  597.     :name                   pauseButton
  598.     :owner                  controls
  599.     :help                   ""
  600.     :x                      192
  601.     :y                      52
  602.     :width                  42
  603.     :height                 25
  604.     :constant-width         nil
  605.     :button-type            :normal
  606.     :foreground-color       "Black"
  607.     :label                  "icons/pauseIcon"
  608.     :label-type             :glyph
  609.     :initial-state          :active
  610.     :menu                   nil
  611.     :notify-handler         PauseResume
  612.     :event-handler          nil
  613.     :user-data              ()
  614.     :actions                (
  615.         (
  616.         :from                   (window pauseButton)
  617.         :when                   (Notify )
  618.         :to                     (window pauseButton)
  619.         :function_type          CallFunction
  620.         :arg_type               ()
  621.         :action                 (PauseResume)
  622.         )
  623.     )
  624. )
  625. (
  626.     :type                   :button
  627.     :name                   stopButton
  628.     :owner                  controls
  629.     :help                   ""
  630.     :x                      264
  631.     :y                      52
  632.     :width                  42
  633.     :height                 25
  634.     :constant-width         nil
  635.     :button-type            :normal
  636.     :foreground-color       "Black"
  637.     :label                  "icons/stopIcon"
  638.     :label-type             :glyph
  639.     :initial-state          :active
  640.     :menu                   nil
  641.     :notify-handler         Stop
  642.     :event-handler          nil
  643.     :user-data              ()
  644.     :actions                (
  645.         (
  646.         :from                   (window stopButton)
  647.         :when                   (Notify )
  648.         :to                     (window stopButton)
  649.         :function_type          CallFunction
  650.         :arg_type               ()
  651.         :action                 (Stop)
  652.         )
  653.     )
  654. )
  655. (
  656.     :type                   :button
  657.     :name                   playIconButton
  658.     :owner                  controls
  659.     :help                   ""
  660.     :x                      340
  661.     :y                      52
  662.     :width                  42
  663.     :height                 25
  664.     :constant-width         nil
  665.     :button-type            :normal
  666.     :foreground-color       "Black"
  667.     :label                  "icons/playIcon"
  668.     :label-type             :glyph
  669.     :initial-state          :active
  670.     :menu                   nil
  671.     :notify-handler         Play
  672.     :event-handler          nil
  673.     :user-data              ()
  674.     :actions                (
  675.         (
  676.         :from                   (window playIconButton)
  677.         :when                   (Notify )
  678.         :to                     (window playIconButton)
  679.         :function_type          CallFunction
  680.         :arg_type               ()
  681.         :action                 (Play)
  682.         )
  683.     )
  684. )
  685. (
  686.     :type                   :button
  687.     :name                   MoveCanvasFastLeftButton
  688.     :owner                  controls
  689.     :help                   ""
  690.     :x                      528
  691.     :y                      52
  692.     :width                  26
  693.     :height                 26
  694.     :constant-width         nil
  695.     :button-type            :normal
  696.     :foreground-color       "Black"
  697.     :label                  "icons/FastLeftCanvasIcon"
  698.     :label-type             :glyph
  699.     :initial-state          :active
  700.     :menu                   nil
  701.     :notify-handler         MoveCanvasFastLeft
  702.     :event-handler          nil
  703.     :user-data              ()
  704.     :actions                (
  705.         (
  706.         :from                   (window MoveCanvasFastLeftButton)
  707.         :when                   (Notify )
  708.         :to                     (window MoveCanvasFastLeftButton)
  709.         :function_type          CallFunction
  710.         :arg_type               ()
  711.         :action                 (MoveCanvasFastLeft)
  712.         )
  713.     )
  714. )
  715. (
  716.     :type                   :button
  717.     :name                   MoveCanvasLeftButton
  718.     :owner                  controls
  719.     :help                   ""
  720.     :x                      568
  721.     :y                      52
  722.     :width                  26
  723.     :height                 26
  724.     :constant-width         nil
  725.     :button-type            :normal
  726.     :foreground-color       "Black"
  727.     :label                  "icons/LeftCanvasIcon"
  728.     :label-type             :glyph
  729.     :initial-state          :active
  730.     :menu                   nil
  731.     :notify-handler         MoveCanvasLeft
  732.     :event-handler          nil
  733.     :user-data              ()
  734.     :actions                (
  735.         (
  736.         :from                   (window MoveCanvasLeftButton)
  737.         :when                   (Notify )
  738.         :to                     (window MoveCanvasLeftButton)
  739.         :function_type          CallFunction
  740.         :arg_type               ()
  741.         :action                 (MoveCanvasLeft)
  742.         )
  743.     )
  744. )
  745. (
  746.     :type                   :button
  747.     :name                   MoveCanvasRightButton
  748.     :owner                  controls
  749.     :help                   ""
  750.     :x                      668
  751.     :y                      52
  752.     :width                  26
  753.     :height                 26
  754.     :constant-width         nil
  755.     :button-type            :normal
  756.     :foreground-color       "Black"
  757.     :label                  "icons/RightCanvasIcon"
  758.     :label-type             :glyph
  759.     :initial-state          :active
  760.     :menu                   nil
  761.     :notify-handler         MoveCanvasRight
  762.     :event-handler          nil
  763.     :user-data              ()
  764.     :actions                (
  765.         (
  766.         :from                   (window MoveCanvasRightButton)
  767.         :when                   (Notify )
  768.         :to                     (window MoveCanvasRightButton)
  769.         :function_type          CallFunction
  770.         :arg_type               ()
  771.         :action                 (MoveCanvasRight)
  772.         )
  773.     )
  774. )
  775. (
  776.     :type                   :button
  777.     :name                   MoveCanvasFastRightButton
  778.     :owner                  controls
  779.     :help                   ""
  780.     :x                      708
  781.     :y                      52
  782.     :width                  26
  783.     :height                 26
  784.     :constant-width         nil
  785.     :button-type            :normal
  786.     :foreground-color       "Black"
  787.     :label                  "icons/FastRightCanvasIcon"
  788.     :label-type             :glyph
  789.     :initial-state          :active
  790.     :menu                   nil
  791.     :notify-handler         MoveCanvasFastRight
  792.     :event-handler          nil
  793.     :user-data              ()
  794.     :actions                (
  795.         (
  796.         :from                   (window MoveCanvasFastRightButton)
  797.         :when                   (Notify )
  798.         :to                     (window MoveCanvasFastRightButton)
  799.         :function_type          CallFunction
  800.         :arg_type               ()
  801.         :action                 (MoveCanvasFastRight)
  802.         )
  803.     )
  804. )
  805. (
  806.     :type                   :button
  807.     :name                   ResetCanvasButton
  808.     :owner                  controls
  809.     :help                   ""
  810.     :x                      608
  811.     :y                      56
  812.     :width                  55
  813.     :height                 19
  814.     :constant-width         nil
  815.     :button-type            :normal
  816.     :foreground-color       "Black"
  817.     :label                  "RESET"
  818.     :label-type             :string
  819.     :initial-state          :active
  820.     :menu                   nil
  821.     :notify-handler         ResetCanvas
  822.     :event-handler          nil
  823.     :user-data              ()
  824.     :actions                (
  825.         (
  826.         :from                   (window ResetCanvasButton)
  827.         :when                   (Notify )
  828.         :to                     (window ResetCanvasButton)
  829.         :function_type          CallFunction
  830.         :arg_type               ()
  831.         :action                 (ResetCanvas)
  832.         )
  833.     )
  834. )
  835. (
  836.     :type                   :canvas-pane
  837.     :name                   AppCanvas
  838.     :owner                  window
  839.     :help                   ""
  840.     :x                      0
  841.     :y                      90
  842.     :width                  112
  843.     :height                 144
  844.     :background-color       ""
  845.     :foreground-color       ""
  846.     :initial-state          :visible
  847.     :draggable              nil
  848.     :droppable              nil
  849.     :default-drop-site      nil
  850.     :menu                   nil
  851.     :horizontal-scrollbar   nil
  852.     :scrollable-width       112
  853.     :vertical-scrollbar     nil
  854.     :scrollable-height      144
  855.     :repaint-proc           AppCanvasRepaintHandler
  856.     :event-handler          AppCanvasEventHandler
  857.     :drawing-model          :xwindows
  858.     :user-data              ()
  859.     :actions                (
  860.         (
  861.         :from                   (window AppCanvas)
  862.         :when                   (Repaint )
  863.         :to                     (window AppCanvas)
  864.         :function_type          CallFunction
  865.         :arg_type               ()
  866.         :action                 (AppCanvasRepaintHandler)
  867.         )
  868.         (
  869.         :from                   (window AppCanvas)
  870.         :when                   (AnyEvent )
  871.         :to                     (window AppCanvas)
  872.         :function_type          CallFunction
  873.         :arg_type               ()
  874.         :action                 (AppCanvasEventHandler)
  875.         )
  876.     )
  877. )
  878. (
  879.     :type                   :canvas-pane
  880.     :name                   DrawCanvas
  881.     :owner                  window
  882.     :help                   ""
  883.     :x                      108
  884.     :y                      90
  885.     :width                  696
  886.     :height                 102
  887.     :background-color       ""
  888.     :foreground-color       ""
  889.     :initial-state          :visible
  890.     :draggable              nil
  891.     :droppable              nil
  892.     :default-drop-site      nil
  893.     :menu                   nil
  894.     :horizontal-scrollbar   nil
  895.     :scrollable-width       696
  896.     :vertical-scrollbar     nil
  897.     :scrollable-height      102
  898.     :repaint-proc           DrawCanvasRepaintHandler
  899.     :event-handler          DrawCanvasEventHandler
  900.     :drawing-model          :xwindows
  901.     :user-data              ()
  902.     :actions                (
  903.         (
  904.         :from                   (window DrawCanvas)
  905.         :when                   (Repaint )
  906.         :to                     (window DrawCanvas)
  907.         :function_type          CallFunction
  908.         :arg_type               ()
  909.         :action                 (DrawCanvasRepaintHandler)
  910.         )
  911.         (
  912.         :from                   (window DrawCanvas)
  913.         :when                   (AnyEvent )
  914.         :to                     (window DrawCanvas)
  915.         :function_type          CallFunction
  916.         :arg_type               ()
  917.         :action                 (DrawCanvasEventHandler)
  918.         )
  919.     )
  920. )
  921. (
  922.     :type                   :canvas-pane
  923.     :name                   TimeCanvas
  924.     :owner                  window
  925.     :help                   ""
  926.     :x                      108
  927.     :y                      190
  928.     :width                  696
  929.     :height                 44
  930.     :background-color       ""
  931.     :foreground-color       ""
  932.     :initial-state          :visible
  933.     :draggable              nil
  934.     :droppable              nil
  935.     :default-drop-site      nil
  936.     :menu                   nil
  937.     :horizontal-scrollbar   nil
  938.     :scrollable-width       696
  939.     :vertical-scrollbar     nil
  940.     :scrollable-height      44
  941.     :repaint-proc           TimeCanvasRepaintHandler
  942.     :event-handler          TimeCanvasEventHandler
  943.     :drawing-model          :xwindows
  944.     :user-data              ()
  945.     :actions                (
  946.         (
  947.         :from                   (window TimeCanvas)
  948.         :when                   (Repaint )
  949.         :to                     (window TimeCanvas)
  950.         :function_type          CallFunction
  951.         :arg_type               ()
  952.         :action                 (TimeCanvasRepaintHandler)
  953.         )
  954.         (
  955.         :from                   (window TimeCanvas)
  956.         :when                   (AnyEvent )
  957.         :to                     (window TimeCanvas)
  958.         :function_type          CallFunction
  959.         :arg_type               ()
  960.         :action                 (TimeCanvasEventHandler)
  961.         )
  962.     )
  963. )
  964. )
  965.